Data is filtered by travelmode (car and bus) and date (April 2016).
Top 10% points
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.0 9.0 37.0 828.1 189.0 873300.0
# Classifying points by day for ECDF
df_intersession_april <-mutate(df_intersession_april, class = ifelse(hour(time) >7 & hour(time) < 20,
"day",
"night"))
df_osm_edge <- df_intersession_april %>%
merge( y = df_osm_edge, by = "way_id")
ggplot(df_osm_edge, aes(points, color= class)) +
scale_x_log10() + stat_ecdf(geom = "step")
ECDF all by #points
rr ecdf_all ecdf_day ecdf_night
ECDF by #sessions
Traffic Map April 2016